home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / amos / packdir.amos / packdir.amosSourceCode
Encoding:
AMOS Source Code  |  1997-01-08  |  213 b   |  15 lines
  1. F$=Fsel$("","","","")
  2. F$=Dir$
  3. A$=Dir First$(F$)
  4. While Left$(A$,1)="*"
  5. A$=Dir Next$
  6. Wend 
  7. Repeat 
  8. While Left$(A$,1)="*"
  9. A$=Dir Next$
  10. Wend 
  11. A$=Left$(A$,30)-" "
  12. Print A$
  13. Exec "Packlha "+F$+A$
  14. A$=Dir Next$
  15. Until A$=""